home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 April / 64er_Magazin_92-04_1992_Markt__Technik_de_Side_A.d64 / f-c (comp).seq < prev    next >
Encoding:
Text File  |  1992-01-01  |  1.3 KB  |  51 lines
  1. ;speeder floppy->computer (comp.routine)
  2.  
  3.    ldx #$0b
  4.    stx $dd00
  5.    ldx #$03
  6. l1 lda $dd00
  7.    bpl l1
  8.    stx $dd00
  9. l2 nop
  10.    nop
  11.    lda #$0b
  12.    sta $dd00
  13.    nop
  14.    nop
  15.    ldx #$03
  16.    stx $dd00
  17.    ldx $dd00     ;bits 5 und 7
  18.    lda tab57,x   ;holen
  19.    ldx $dd00     ;
  20.    ora tab13,x   ;bits 1 und 3
  21.    ldx $dd00     ;
  22.    ora tab02,x   ;bits 0 und 2
  23.    sta puffer,y  ;und schreiben
  24.    iny           ;naechstes byte
  25.    bne l2
  26.    rts
  27.  
  28.    .byte $00,$00,$00,$05,$00,$00,$00,$00
  29.    .byte $00,$00,$00,$0a,$00,$00,$00,$00
  30.    .byte $00,$00,$00,$50,$00,$00,$00,$00
  31.    .byte $00,$00,$00,$a0,$00,$00,$00,$00
  32.    .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  33.    .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  34.    .byte $00,$00,$00,$01,$00,$00,$00,$00
  35.    .byte $00,$00,$00,$02,$00,$00,$00,$00
  36.    .byte $00,$00,$00,$10,$00,$00,$00,$00
  37.    .byte $00,$00,$00,$20,$00,$00,$00,$00
  38.    .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  39.    .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  40.    .byte $00,$00,$00,$04,$00,$00,$00,$00
  41.    .byte $00,$00,$00,$08,$00,$00,$00,$00
  42.    .byte $00,$00,$00,$40,$00,$00,$00,$00
  43.    .byte $00,$00,$00,$80,$00,$00,$00,$00
  44.    .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  45.    .byte 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  46.    .byte $00,$00,$00,$00,$00,$00,$00,$00
  47.    .byte $00,$00,$00,$00,$00,$00,$00,$00
  48.    .byte $00,$00,$00,$00,$00,$00,$00,$00
  49.    .byte $00,$00,$00,$00,$00,$00,$00,$00
  50.  
  51.